;                 DELPHI Script File
;                Please see READ.ME for details
;LOGON TO DELPHI THRU TYMNET
jump begin
label PLEASE
clear
mess     PLEASE TRY AGAIN.  DELPHI IS NOT RESPONDING.
.
bye
abort 
label begin
wait delay 20
reply a|
wait string "please log in:"
wait string "user name:"
reply DELPHI|
wait string "connected"
wait string "Username:"
reply *** ID ***|
WAit String "Password:"
REply *** PW ***|
otimeout 200 jump PLEASE
wait string "do?"
;LOGON TO DELPHI THRU TELENET
;jump begin
;label PLEASE
;clear
;mess        PLEASE TRY AGAIN.  DELPHI IS NOT RESPONDING.
;.
;bye
;abort 
;label begin
;wait delay 20
;reply @
;wait delay 10
;reply |
;wait delay 10
;reply |
;whenever "TERMINAL=" reply |
;wait char "@"
;reply C DELPHI|
;wait string "USERNAME:"
;reply *** ID ***|
;WAit String "PASSWORD:"
;REply *** PW ***|
;otimeout 200 jump PLEASE
;wait string "do?"